home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 85 / 085.d81 / pxword 85 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  64 lines
  1. 10 poke53280,0:poke53281,0:printchr$(14);chr$(8);
  2. 20 poke55,0:poke56,96:clr
  3. 25 remgoto45
  4. 30 sys57812"toolbox 85",8,0:poke781,0:poke782,192:sys65493
  5. 40 sys57812"pcryptic 85",8,0:poke781,0:poke782,96:sys65493
  6. 45 print"[147]"
  7. 50 sys49152,7,4,15,7,34,160,12
  8. 52 sys49152,7,2,13,5,31,160,15
  9. 54 sys49152,7,4,13,32,32,101+128,12
  10. 60 printtab(7)"[155][195][210][217][208][212][201][195] [195][210][207][211][211][215][207][210][196]"
  11. 62 printtab(7)"[163][163][163][163][163][163][163] [163][163][163][163][163][163][163][163][163]"
  12. 65 printtab(7)"1] [208]rint [208]uzzle
  13. 70 [153][163]7)"2] (NULL)rint (NULL)olution
  14. 75 printtab(7)"3] [211]olving [201]nstructions
  15. 77 [153][163]7)"4] (NULL)uzzle valxplanation
  16. 79 printtab(7)"5] [197]xit"
  17. 80 printtab(5)"[155][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  18. 81 sys49152,7,19,20,0,39,98,11
  19. 82 sys49152,7,23,24,0,39,98+128,11
  20. 83 sys49152,4,0:poke198,0
  21. 85 sys49152,3,0,0,1,14,20,160,"[208]ress 1-5 to select.
  22. 90 [161]k$:[139]k$[178]""[167]85
  23. 95 k[178][197](k$):[139]k[179]1[176] k[177]5[167]85
  24. 100 [145]k[141]1000,2000,3000,5000,4000
  25. 105 [137]85
  26. 110 :
  27. 1000 [158]49152,10,15,4:[158]49152,6,6,7,6,30,12
  28. 1002 [158]49152,3,0,0,1,14,20,160,"(NULL)rinter ready?  [y/n]"
  29. 1005 [161]k$:[139]k$[178]""[167]1002
  30. 1010 [139]k$[179][177]"y"[167][158]49152,5,0:[142]
  31. 1012 [158]49152,10,4,3
  32. 1015 [158]49152,7,20,23,0,39,160,14
  33. 1020 [151]214,20:[153]:[153][163]15)"cont(NULL)rinting..."
  34. 1025 [158]24576:[158]49152,5,0:[142]
  35. 1030 :
  36. 2000 [158]49152,10,15,4:[158]49152,6,7,8,6,30,12
  37. 2002 [158]49152,3,0,0,1,14,20,160,"(NULL)rinter ready?  [y/n]"
  38. 2005 [161]k$:[139]k$[178]""[167]2002
  39. 2010 [139]k$[179][177]"y"[167][158]49152,5,0:[142]
  40. 2012 [158]49152,10,4,3
  41. 2015 [158]49152,7,20,23,0,39,160,14
  42. 2020 [151]214,20:[153]:[153][163]15)"cont(NULL)rinting..."
  43. 2025 [158]24576[170]3:[158]49152,5,0:[142]
  44. 2030 :
  45. 3000 [153]"list":[158]49152,13,8,[198]("\"),"cryptic instr 85"
  46. 3005 [158]49152,5,0:[142]
  47. 3010 :
  48. 4000 [158]49152,10,15,4:[158]49152,6,10,11,6,30,12
  49. 4002 [158]49152,3,0,0,1,14,20,160,"atnre (NULL)ou (NULL)ure?  [y/n]"
  50. 4005 [161]k$:[139]k$[178]""[167]4002
  51. 4010 [139]k$[179][177]"y"[167][158]49152,5,0:[142]
  52. 4012 [151]55,0:[151]56,160:[156]
  53. 4050 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er%:[160]15
  54. 4055 [139]er%[179][177]63[167][128]
  55. 4060 [151]646,[194](53281)
  56. 4062 [153]"loadwaitload"[199](34)"hello connect"[199](34)",8"
  57. 4065 [153]"run"
  58. 4075 [151]631,13:[151]632,13:[151]633,13:[151]198,3:[128]
  59. 4080 :
  60. 5000 [153]"list":[158]49152,13,8,[198]("\"),"explanation 85"
  61. 5005 [158]49152,5,0:[142]
  62. 5010 :
  63. 10000 [159]15,8,15,"s0:pxword 85":[160]15:[148]"0:pxword 85",8
  64.